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! 
i<bl f/width:80> 


MODULE bpa$Smesag ( 


! Message send/rec 
DENT = "1-272" i File: 


give 
e: BPAMESAG.B832 EDIT:MDL1272 


al eel 


BEGIN 


APES SS SOLE L IIIT STITT TTT TTT TTT TTT TTT TI TTC T TTT TTT ir iriririririririrritiriiiit 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
is DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


® 

® 

® 

® 

. ® 
1* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
:* COPIES THEREOF MAY NUT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
1* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
!® TRANSFERRED. ® 
® 

:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
!® CORPORATION. * 
® 

:* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
* 

* 

® 


ESET EI IIIT ITI TIT TTT TTT ETT c TTT TITS TIT ICIS ITI Ti Tir rT TT TiTitittitiiititt 
' 


i <bL f/uppercase_key> 
:<bl f/lowercase_user> 


lee 
FACILITY: BASIC-PLUS AME 

: ABSTRACT: 

This goats simulates some subfunctions of the RSTS monitor directive 
: bpaSmess_dc | corresponds to SRS$DCL 

: bpa$mess_icl »* = to SR$LCL 

: bpa$mess_rcv -“ to SRSRCV 

bpaSmess_rem -"e to SRSREM 

ENVIRONMENT: Native mode VAX processor, User mode. 

: AUTHOR: V.Eriksson (CAP), CREATION DATE: 10 = May - 1979 

: MODIFIED BY: 

VERSION x01 

' 

' 


‘ V.ERIKSSON (CAP), 27-JUNE-79 
! 260 = The definition of I0SB (status block returned by Q10W) was wrong 
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and has been changed. 


ERIKSSON (CAP), 27-JUNE-79 
rqb-subfunction value has been inserted in bpa$mess_rcv. 
Remove REQUIRE ‘REQ:AME' and adde necessary 
BPA prefixes on the names. JBS 02-0CT-197 
Remove the XRB. Instead, the caller will pass the necessary 
fields. This is needed because in the VAX-11 BASIC environment 
addresses are 32-bits Oe and the XRB only has 16 bits for 
the buffer address. JBS 04-0CT-1979 
Add an exit handler, so that the logical name will be deleted 
when she image exits, in case it is unable to delete it. 
JBS 05-0CT-1979 
Correct some comments describing receiver selection 
and return 0 for job number. JBS 07-0CT-1979 
Remember the parameter eters so it sen be returned with each 
message segment read. JBS ?=0€T-1979 
Correct an error in a comment. JBS 16-OCT-1979 
If the permanent mailbox is already created and we do not have 
SYSNAM priv. to put the name of the mailbox in the table then 
at > ee signalling, first delete the permanent mailbox. 
Do not interpret FIRQBCFQB$W_BMAX] to be anything other than | 
aon gts. or positive. Negative or zero means use temporary mailbox, 
and positive means use permanent mailbox. Use a constant for the 
size of message, when creating the mailbox. The buffer quota for 
the mailbox should be the system default. When these changes were 
made, BASSSYS was also modified to mages small send/receive. 
This call is simulated to look Like a large send/receive to this 
module. As a result of og ty small send/receive, we will now 
signal illegal sv? usage instead of account or device in use 
if this is a small send/receive to be compatible with RSTS. FM 21-FEB_81. 
Use LIBSGET_EF to allocate event flags for $Q10Ws. PLL 30-Nov-81 
Deallocate an active ISB/LUB/RAB after trying to read a mailbox 
message and not receiving one. MDL 11-Oct-1982 ; 
fix bug introduced in previous edit; can't assume we have a valid 
ISB/LUB/RAB all the time. MDL 26-Apr-1983 
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' 


; SWITCHES: 


SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
' 


TABLE OF CONTENTS: 


FORWARD ROUTINE 
pa$mesag, ! Main routine, calls the others 
bpa$mess_dcl, ' Simulates declare receiver 
mess_rcvname : NOVALUE 
' create a logical mailbox name 


bpa$mess_lcl, ! Simulates send local data message 
bpa$Smess_send : NOVALUE, ! Called by bpa$Smess_lcl to send a message 
bpaSmess_rcv, ! Simulates receive local data message 
read_mailbox, ! Called by bpa$Smess_rcv to read a mailbox 

! into a buffer ; 

bpa$Smess_rem, ! Simulates remove receiver 


bpa$Smess_clear 


° ! Called by bpa$Smess_rem to perform remove 
exit_handler : NOVALUE; ! Cal 


alled at image exit 
receiver 
INCLUDE FILES: 


REQUIRE ‘RTLIN:BPASTRUCT'; 
REQUIRE "RTLIN:BPAFQBDEF '; 
REQUIRE "RTLIN:BPAMSGDEF '; 
REQUIRE "RTLIN:BPAFUNDEF '; 
REQUIRE "RTLIN:BPAERRDEF '; 
LIBRARY ‘RTLSTARLE'; 
REQUIRE ‘RTLIN:RTLPSECT'; 
REQUIRE "RTLIN:OTSLNK'; 
REQUIRE ‘RTLML:OTSLUB’; 


| MACROS: 

NONE 
EQUATED SYMBOLS: 
: NONE 
! PSECTS: 


! Called by bpaSmess_decl and bpa$mess_lcl to 
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' 
declare_psects (bpa); 


; OWN STORAGE: 


GLOBAL 
bpasa _msg : $Smsg_def; ! Block with data needed to be 
! saved between calls 
OWN 
ithe a : INITIAL (0), ! One-time flag for exit handler 
ex n, 
exit_ “block : VECTOR C4] INITIAL (0, 0, 0, 0), ; 
param_string : VECTOR (20, BYTE]; ! Last parameter string read 


EXTERNAL REFERENCES: 


20000 SIN NSN NINO AAA AAA AOOUIUIN 
a kk kk kk kk a 
ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 


EXTERNAL ROUTINE 
LIBSGET_EF ' allocate an event flap 
LIBSFREE_EF, ! deallocate an event flag 
BASSSCB. pop: JSB_CB_POP NOVALUE, ! free an ISB/LUB 
bpa$Swakeup; Routine to to wa oa process 


when a message comes. 
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co 
uw 


in Routine 


4 

4 

GLOBAL ROUTINE bpa$mesag ( ! Ma 
firab, } ao of the FIRQB 

e 

Ad 


' 
buflen, ' Length of the user's buffer 
bufadr, ! Address of the user's buffer 
_ bytxfr ! Number of bytes actually transfered 


e+ 

! FUNCTIONAL DESCRIPTION: 
This routine calls one of bpaSmess_dcl, bpa$mess_lcl, bpa$Smess_rcv 
and bpa$Smess_rem depending on the Subfunction code in firqb. IF the 
subfunction code is faulty an error is signalled. 


i FORMAL PARAMETERS: 


firagb = firqb address 

buflen.rl.v Length of output data buffer in bytes, 0 to 512. 
bufadr.ra.v Starting address of data buffer 

bytxfr.ww.r Number of data bytes received 


i] 

1 

1 

1 

' 

1 

' 

1 

] 

t 

1! 

t 

‘ 

IMPLICIT INPUTS: 
‘ Depending on the subfunction code, various fields in firqb and 
bpa$a_msg are used as input. 
IMPLICIT OUTPUTS: 
i 

' 

i] 

' 

1 

1 

' 

t 

{ 

1 

i 

i] 

' 


Depending on the subfunction code, various fields in firqb and 
bpa$a_msg are used as output. 


i ROUTINE VALUE: 


1 = success 
? += failure 


i SIDE EFFECTS: 
NONE 


—OOoOooCocococooo 00 OO00O0 oo. 
DOO O0O0 0 OO 000000000 0000 09 09 09 09 SII NII IN NNO PA AAA 
CONAUE WN O OONAUE WN (OOO NOUSWN “OO OONOUE WT 


BEGIN 


cle nabs 
Wwr—o 
REPOPOPOPONONOPENONPONONPUNRININS 2 8 9 9 2 


DWDONOUSWN—OO 


S2Ssz 


DNAUES WN "OOO IAW 


MAP 
firqb : REF S$fqb_def; ' Defines firaqb 
! Select the right subfunction and perform it. 
CASE. fire Cfqb$Sb_subfun] FROM fun$k_minsr TO fun$k_maxsr OF 
Cfun$k_srict] : 
bpa$Smess_lcl (.firqb, .buflen, .bufadr); 


Cfun$k_srrem] : ’ 
bpa$Smess_rem (.firqb); 


RaPIPOPOPOPOPNINOPONOPOPININININIPONUNININININININININININININININININININININININD 2 2 2 2 2 
ee ed ce ed ce ee ee ee ce ee an ed cae ee ed ae ed eae cee ce a ee ea ed ee ce ed a ee ce ce ce ee ee a ec ee ee ce ee ee ed ed ed ed ed 
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00# 00000 BPASA_MSG:: 
BYTE 


00232 ~BLK 
00000000 00234 EXIT LOCK: 
00238 EXIT REASON: 
00000000 00000000 00000000 00000000 0023c EXIT BLOCK: 
0024C PARAM_STRING: 
-BLKB 


EXTRN 
EXTRN 
-PSECT 
0004 00000 -ENTRY 
52 04 AC 00 00002 MOVL 
0B F7 SOB 04 A2 8F 00006 CASEB 
0018 0018 0018 0018 QO000C 1$: - WORD 
0018 0018 pots 0018 00014 
0045 003¢ 00 0026 0001C 
001A8210 8F DD 00024 2$ PUSHL 
000000006 00 01 FB QO02A CALLS 
- 0031 RET 
7€ 08 AC 7D 00032 3$ MOvVa 
52 DD 000 PUSHL 
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bpa$mesag 


BPASMESAG 
\1-272\ 


4 1619 
rk 1620 Cfun$k_srdcl] : 
rf: + 1 bpaSmess_dcl (.firgb); 
re 16 : Ctundh arrow : 
rt 4 Mb ¢ bpaSmess_rcv (.firqb, .buflen, .bufadr, .bytxfr); 
49 16 CINRANGE, OUTRANGE) : 
250 16 5 RETURN SIGNAL (errerr); 
$2 16 3 TES; 
338 1630 2 RETURN 1; 
54 1631 1 END; ! End of 
TITLE 
- IDENT 
-PSECT 


_BPASDATA.NOEXE, PIC,2 
0£562] 

2 

0 

4 

0, 0, 0, 0 


20 


LIBSGET_EF, LIBSFREE EF 
BASSSCB_POP, BPASWAKEUP 


_BPASCODE.NOWRT, SHR, PIC,2 
BPASMESAG, Save R2 

IRQB, R 
4(R2), #-9, #11 


‘a sece 
NAAAAAAAARAAAH 


BOVE UNINMNNNNNIN ST 
4 


—~“) bhhhhhhhbbes 
We ee oe 
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“i 


32 
#1, LIBSSIGNAL 


BUFLEN, ~ (SP) 
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; Routine Size: 


255 


99 bytes, 


1632 


1 


Q000v CF 
0000v CF 
0O000v CF 
0000v CF 
50 


Routine Base: 


oo 
on 
OoulNy POO OvVMNVO 
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_BPASCODE + 0000 
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df YBASRIL SRe 
§3. BPASMESS_LCL 


R 
#1, BPASMESS_REM 
7$ 


Re 

#1, BPASMESS_DCL 
BUFADR, (SP) 
BUFLEN 


R 
#4, BPASMESS_RCV 
#1, RO 


PAMESAG.B32;1 
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: ef 16 ; : ROUTINE bpa$Smess_dcl (firgb) = ! Simulates declare receiver 

: 259 1635 1 !++ 

: $0 + ° } FUNCTIONAL DESCRIPTION: 

: 26 1638 1 A check is made that the caller isn't already a receiver and th 

: 5 1639 1 } the input in firgb is checked. If the receivername given in tirgb 

: $88 19 : isn't already in use, a mailbox is created with logical name equal 

: to the receivername pretines by “BPAS'and a buffer pointer is 

: $08 1046 } } zeroed to indicate that no partial message is outstanding. 

; 368 1646 FORMAL PARAMETERS: 

3 370 1646 ; tirgb = firgqb address 

; 37@ 1648 { IMPLICIT INPUTS: 

; sie 1650 1 firagb Cfqb$t_rcvnam) = receiver logical name in ASCII, 

: $?? 193) : pegdes with zero (6 bytes) 

: ¢ } firab Cfaqb$b_access) = (access type) 

: srr 1653 1 firgb Cfqb$w_bmax] = max buffer area to be used for 

: 44 1654 1 the receive queue. 

: 444 193° : } >0 => system memory is to be used 
2 $e es <0 => yl buffer space is to 
$ eee 1658 1! bet (20, 8B.) = firgb £31, B.J = 0 

: Sei 1659 1 bpa$a_msg [msg$l_messchan] = 0 (indicates that the caller 

: sae «| : } isn't a receiver already) 

; 386 1664 i i IMPLICIT OUTPUTS: 

; 288 1664 1! bpa$a_msg [msg$l_messchan] = channel opened to th ilb 

; 289 1665 1 bpasermse tnsgSt~rcvnane = logical name of the meitbox 

; 290 1666 1! bpa$a_msg [msg$t_namedesc] = char. string desc. ppsatine to 

: 291 1667 1 pogicat name of mailbox 

; $36 1o08 : bpa$a_msg [msg$l_buffptr] = 0 (pointer to the receive buffer) 
3 294 1670 i ROUTINE VALUE: 

; 296 1672 1 1 = success 

. t se J io < 

2 

: 499 1675 1 { SIDE EFFECTS: 

: 301 1677 1 | NONE 

; 302 1678 1! 

; 303 1679 1 !-- 

; 304 1680 1 

: $02 He BEGIN 

: 307 1683 MAP 

: to5 one firqgb : REF $fqb_def; ! Defines firgb 

3 310 1686 LOCAL 

; 31! Het sts, eeatus recetved from calls 

; : rvices 

3 313 1689 rslbuf : VECTOR (2, LONG), i Char. string descriptor 


a 
| 
| 
| 


ce ere 
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| 1-272 1a-Sep- 1986 1: 38 18 BASRTL.SRC BPAMesae.B3551 
is 316 1690 ! pointing to $trnlog - buffer 
s 315 1691 rsinam : BLOCK 63. BYTE), i Better Yor $trnlog z 

3 i3 1096 pribuf : VECTOR (2, LONGI, i Char. string desc iptor 
is 35} 169 i — to Moe og - buffer 
; 318 1694 devbuf : BLOCK (200 Mat i Buffer for $getchn 

; 319 1695 devnam_desc : VECTOR [2, LONGI, i Char. string descr. pointing 
$ 0 1998 i to the mailbox device ~:7 

: 1 1469 devnam : BLOCK (9, BYTE], i Mailbox device name 

3 $§ 1639 fao_desc : VECTOR C2, LONG); i Char. string desc. fo 

: 324 1700 ! commands to $fao 

; $52 1701 

: 359 1708 ig ize = $12 + 20, 

: maxmsg_size = + ! max. message size. 

; 328 1704 L “Tra. snarce = 22; ! Large send? receive. 

3 94 1705 

; 0 1706 

s. Say 1707 chan = bpa$a -"sg Cmsg$l_messchan], ! Channel 

3 Soe 1708 lLognam_desc = bpa$a_msg [msg$t_ namedesc], ! Char.descr. of 

3 io 1709 ' receiver name. 

; 334 1710 2 Lognam = bpa$Sa_msg [msg$t_rcvnamel, ! Receiver name 

3 3o0 1711 2 ' $qiow 

s $33 Ha § buff_ptr = bpa$Sa_msg (msg$l_bufptr]; ! Buffer pointer 

; 338 1714 2! Is the caller already a receiver? If so, signal an error. 

; 339 1715 2! If this is small send ond receive then just return. 

: 340 1716 2 

3; 36 1717 2 IF .chan NEQU 0 

; 342 1718 2 THEN 

> 343 wy 2 

3 344 1720 2 If _.firqb Cfqb$b_function] EQL k_lrg_sndrcv 

> 345 1721 2 

; 346 766 2 RETURN SIGNAL (inuse) 

> 347 17235 2 

; 348 1724 § RETURN 1; 

: 349 1725 

3; 350 1726 2 ! Check input data. 

5 5 1727 2 

; 352 1728 2 IF .firab sb pan access] NEQU 1 OR NOT CHSFAIL (CHSFIND_NOT_CH (12, 

3 353 1729 2 irqgb (20, b_J, 0)) 

3; «354 1730 2 

3 $22 17a) 2 RETURN SIGNAL (badfuo); 

3 Sor 1533 3 4 Create a logical name for the mailbox (receiver name from firqb, prefixed 

3 338 1734 ' by ‘BPAS'). 

: jy 1735 2 rness, rcvname (Lognan_ desc, lognam, .firqb): 

; 360 1736 ; ' Check that the bog cal~name isn’t already in use. 

: 1 1737 rslbuf £9 :3 

: 6¢ 1738 rslbuf (1) = valde 

3 re) ir IF (sts = $trnlog (lognam = lLognam_desc, rslbuf = rslbuf)) EQLU ss$_normal 
: 3eg 1788 2 RETURN SIGNAL (fiexst); 

; 368 1744 ! Create a mailbox. If buffer maximum is negative, the mailbox should be 

r 393 1042 ! temporary, otherwise permanent. 


ry 


C15 
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3; 371 1747 IF .firqb CfqbSw_bmax] LEQ 0 

; if 1748 THEN 

: 37 P 1749 sts = Scrembx (prmflg = 0, chan = chan 

: 374 1750 maxmsg = k_maxmsg_size, bufquo = 05 

3: 3575 1751 ELSE 

; 376 P 1736 sts = $crembx (prmflg = 1, chan = chan, maxmsg = k_maxmsg_size, 
: as 175 bufquo = 0); 

s sre 1754 

; avy 1755 2 IF NOT .sts THEN RETURN SIGNAL (.sts); 

; 380 1756 § 

3; «Sel 1757 ! Get the device name of the mailbox. 

: B 1758 pribuf £0} = 200; 

>; 1759 pribuf £1) = devbuf; 

> 384 1760 

3 6385 1761 IF NOT (sts = $getchn (chan = .chan, pribuf = pribuf)) 

> 386 1706 2 THEN 

: 7 1763 2 RETURN SIGNAL (.sts); 

>; 388 1764 

>; 389 1765 fao_desc (1) = UPLIT BYTE(ZASCIC'!AC!ZW:") + 1; 

; we 1766 fao_desc (0) = CHSRCHAR (.fao_desc [1] - 1); 

; #391 1767 2 devnam_desc (1) = devnam; 

ae. 1768 2 devnam_desc (0) = 9; 

; 1769 2 

; 394 P1770 3 IF NOT (sts = $fao (fao_desc, devnam_desc [0], devnam_desc, : 
; 44 1¢7) ; devbuf C.devbuf Cdib$w_devnamof fl, a_i, -devbuf Cdib$w_unit])) 
5 wer 1793 2 RETURN SIGNAL (.sts); 

; ae 1774 2 3 

; 44 177? 2 ! Assign the logical name to the devicename of the mailbox 

; 401 1777 : IF NOT (sts = $crelog (eqlnam = devnam_desc, lognam = lognam_desc)) 
; 40 1778 2 THEN 

; 40 1779 3 BEGIN 

: 404 1780 3! , 
; 405 1781 3 ! If we cannot create a logical then we must delete the permanent mailbox 
: 406 1782 3 ! that we created above. 

; 407 1783 3 !- 

; 408 1784 4 BEGIN 

: 409 1785 4 

; 410 1786 5 IF .firqb Cfqb$w_bmax] LSS 0 THEN $delmbx (chan = chan) 

3 6411 1787 5 

3 $i¢ 1788 3 END; : 

: 61 1789 3 RETURN SIGNAL (prviol, 0, .sts); 

> 414 1790 § END; 

3 «415 1791 . : ; 

3; 416 16 § ! Prepare for the receive calls by clearing the buffer pointer used by 
3; 417 179 ! bpaSmess_rcv. 

: 418 1794 buff_ptr = 0; 

3; «4419 1795 : Z ; 

: 420 1796 ! Declare an exit handler, to delete the name when the image exits. 

: $s! 1797 ! This may be needed if the user's program fails and it does not 

: 6 4 1798 ! delete the name itself. 

3; 42 1799 != 

: 424 1800 BEGIN 

: 425 1801 

3 $38 1398 AL 

s 4627 180 ast_status, 


| 
| 
| 
| 
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; 428 1308 dclexh_status; 
: 429 1805 
; 430 1308 ast_status = $setast (enbflg = 0); 
; 431 180 
g 4 ¢ 1808 4 IF ( NOT .exit_lock) 
. 4 1809 3 — 
(3) «434 13\9 4 
> 435 1811 4 oot “block = exit handler; 
>; 436 aig 4 exit_block = 
: 437 1815 4 exit_block = exit reason 
; 438 1814 4 dclexh ch. = $dclezh (desblk = exit_block); 
>; 439 1313 4 exit_loc 
; 440 1816 4 
3 441 1817 ELS 
: oe 13i8 dclexh_status = 1; 
3 aaa 1830 3 IF (.ast_status EQL ss$_wasset) THEN Ssetast (enbflg = 1); 
> 446 1856 : IF ( NOT .dclexh_status) THEN SIGNAL (badfuo, 0, .dclexh_status); 
3; 447 18235 3 
: 448 1824 2 END; 
> 449 T825 2 RETURN 1; 
; 450 1826 1 END; 'End of bpa$mess_dcl 
3A 57 SA 21 43 41 21 O7 00063 P.AAA: ASCII <7>\!AC!ZW:\ 3 
CHAN= pense. MSG 
LOGNAM_DESC= BPASA_MSG+4 
LOGNAM= BPASA- Ns G+12 
BUFF _PTR= BPASA_MSG+554 
-EXTRN sysSTRNLOG, SYSSCREMBX 
-EXTRN SYSSGETC SYSSF AO 
-EXTRN SYSSCREL (OG; SYSSDELMBX 
-EXTRN SYSSSETAST, SYSSDCLEXH 
007C 00000 BPASMESS_DCL: 
«WORD Save R2, Ree R4,R5,R6 : 1633. 
56 000000006 98 9€ 00002 MOVAB SYS$SETAST, R6 3 
e? 000000006 3 00009 MOVAB LIBSSIGN AL! R5 3 
4 00000000" EF 9€ 00010 MOVAB CHAN, : | 
5E FECC CE 9€ 00017 MOVAB -308(SP) : 
$ D Beate TSTL CHAN ; 1717 
5 1 eit BEQL 2$ s 
50 04 AC 00 0002 MOVL FIRQB, RO : 1720. 
16 03 Ad 91 00024 CMPB 3(RO), #22 A 
9 13 00028 BEQL 1$ : 
01 31 0002A BRW 18$ : 
001A8018 8F 90 0002D 1$: PUSHL #1736728 3 1722 
56 71 000 SRB 6$ : 
52 046 =A ? 0035 2$: MOVL fhe R2 : 1728 
01 OD A 0039 CMPB = s«13(R25, #1 : 
3 003D BNEQ 4$ 3 
14 A2 oc 8 3 3 F SKPC #0, #12, 20(R2) : 1729 
2 1 044 BNEQ 3$ H 
1 D4 00046 CLRL R1 : 


15 
BPASMESAG 1b-se -1984 01:38: AX-11 Bliss-32 V4.0-7%4 Page 1 
1-272 12-8 08- 138 OF eB: U8 BASRTL. SRC IBPAME SAG .B3 31 ) ° (ag 
51 05 0048 3$: TSTL = RY ; 
8 13 OO04A BEQL 6s S$ : 
001A8090 8F DD 00 46 4$: PUSHL #1736848 : 1731 
7 11 0005 BRB 6§ : 
2 DD 00054 Ss: PUSHL R + 1735 
OC AG OF 0096 PUSHAB LOGNAM : 
06 AG OF 0 5 PUSHAB LOGNAM DESC : 
0000v CF 9? FB 0005C CALLS #3, MESS RCVNAME 3 
FB AD F 00 00061 OVL #63, RSLBUF t 1737 
FC OAD B8 AD 9E 00065 MOVAB RSLNAM, RSLBUF+4 + 1738 
7E 7C O006A -(SP) t 1740 
7E D6 9006¢ CLRL = (SP) : 
F8 AD 9F O006E PUSHAB RSLBUF : 
o OM OF 20075 BUSHAB LOGNAM_ DESC : 
000000006 00 06 FB 00076 CALLS #6, SYSSTRNLOG 3 
53 20 DO 90070 MOVL RO, STS : 
07 53 01 00080 CMPL = STS, #1 : | 
09 12 00083 BNEQ = 7$ : 
001A8080 8F op 90085 PUSHL #1736832 + 1742. 
0089 31 00088 6$: BRW 1$ : | 
OE A2 85 0008 7$: TSTW  14(R2) + 1747 
OF 14 0009 BGTR 8$ ; 
7E 7C 00093 CLRQ  =(SP) : 1750 
7E 7¢€ 00095 CLRQ  =<(SP) : 
7E 0214 8F 3C 00097 MOVZWL #532, -(SP) : 
54 0D 0009C PUSHL : 
7E D4 0009E CLRL. = = (SP) ; 
0D 11 000A0 BRB : 
7E 7C OOOA2 8$: CLRQ = =(SP) : 1753 
7E 7C OOOA4 CLRQ  =(SP) : 
7E 0214 8F 3C O00A6 MOVZWL #532, =(SP) : 
54 DD OOOAB PUSHL R4 ; 
01 DD O00AD PUSHL #1 : 
000000006 00 07 FB OOOAF 9$: CALLS #7, SYSSCREMBX ; 
53 50 00 00086 MOVL RO. STS 3 
59 53 £9 00089 BLBC STS, 10$ : 175 
BO AD C8 BF 9A 000BC MOVZBL #206, PRIBUF > 175 
B4 AD 1c AE 9E 000C1 MOVAB DEVBUF, PRIBUF+4 : 175 
7E 7¢ 900¢6 CLRQ. = = (SP) : 176 
BO AD 9F 000C¢ PUSHAB PRIBUF F 
7E 04 000CB LRL = = (SP) ; 
64 DD 000CD PUSHL CHAN : 
000000006 00 5 F O00CF CALLS #5, SYSSGETCHN ; 
53 0 pO 00006 OVL RO. ST F 
39 53 L 00009 BLBC STs, 1 : 

04 AE FFI9. «CF : 000D¢ MOVAB P.AAA+1, FAO_DESC+4 > 1765 
50 04 AE DO O00E? OVL FAO _DESC+4, RO ; 1766 
6E FF AO 9A OOOE MOVZBL -1(80), FAO DESC ; 

18 08 AE H OOEA DEVNAM. DEVRAM DESC +4 ; 1767 

14 AE 0 OOEF MOVL #9, DEVNAM_DESC > 1768 
7E 38 AE 3C OOF 3 MOVZWL DEVBUF+12, ~-(SP) : 177 
50 E Ar C 000F MOVZWL DEVBUF+14. RO : 

20 AE4O 9F OO0FB HAB DEVBUFCROS ; 
1¢ AE OF OOOFF PUSHAB DEVNAM_DESC ; 
20 AE OOF 0192 PUSHAB DEVNAM™DESC ; 
10 AE 9F 0010 PUSHAB FAO DES ; 


ay 
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424 bytes, Routine Base: 


: Routine Size: 
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1-272 14-Sep-1984 BASRTL.SRC JBPAMESAG. 
; 128 i 7 1 ROUTINE mess_rcvname (name_desc, name, firqb) : NOVALUE = ! Creates a 
2 ee et 

; ! mailbox name 

> 455 1830 1 

; $28 183) } te 

; tet 1838 : : FUNCTIONAL DESCRIPTION: 

; 459 1834 1! A string of receiver name from firgb, ahi by "BPAS' and padded 
; 460 183? 7! with zeroes to 10 bytes, is given to the second parameter. 

; 461 1836 1! The character string descriptor of the string is given to the first 
3 re 1837 1! parameter. 

>; 46 ut 1! 

3 464 1839 1 ! FORMAL PARAMETERS: 

> 465 1840 1! 

> 466 1841 1! name _desc = address to receive the char. string desc. of 
; 467 13*§ mailbox name ; 

; 468 1845 1! name = address to receive the mailbox name string 
: 469 1844 1! / (max. 10 bytes) 

; 470 1845 1! firagb = address to firaqb 

3: 471 1846 1! 

; 47 1847 1 ! IMPLICIT INPUTS: 

> 47 1848 1! 

3; 474 1849 1! firqgb Cfqb$t_rcvnam] = receiver logical name in ASCII, 

; 475 1850 1! padded with zero (6 bytes) 

; 476 1851 1! 

3; 477 1836 1 ! IMPLICIT OUTPUTS: 

3; 478 1855 1! : ; 

3; 479 1854 1! name_desc = char. string desc. of mailbox name 

; 480 1855 1! name = string of 'BPA$S’® + receiver name in firqb, 
3; 481 1856 1! padded with zero 

3; 482 1857 1! 

> 483 1858 1 ! ROUTINE VALUE: 

> 484 1859 1! 

; 485 1860 1! NONE 

> 486 1861 1! 

; 487 1862 1 ! SIDE EFFECTS: 

; 488 1863 1! 

3; 489 1864 1! NONE 

: 490 1865 1! 

3; 491 1866 1 !-- 

: 492 1867 1 

; 493 1868 BEGIN 

3 4946 1869 

3; 495 1870 P 

: 4% 1871 mname_desc : REF VECTOR (2, LONG], ! Char. string descr. 

: 497 1376 ! of mailbox name 

: 498 187 name : REF BLOCK C, BYTEI, ' Mailbox name 

: 499 1874 firqb : REF $fqb_def; ! Defines firgb 

: 500 1875 

3 6301 1376 BIND ; ; 

3 206 + 1A prefix = UPLIT BYTE(ZASCIC'BPAS"); ! First part of mailbox name 
; 504 1879 : copy *BPAS’ + receiver name from firqb to recname 

; 505 1880 SCOPY (CHSRCHAR (prefix), prefix + 1, 6, firgb Cfqb$t_rcvnam], 0, 10, 
; 506 1881 -name) ; ‘ ” 

; 507 1882 ! Initialise the character string descriptor 

; 508 188 name_desc [0] = CHSFIND_CH (10, .mame, 0) - .name; 


a 
20000000000 
fo To Te Te Je Te] 
DONO 


58 


58 


08 


: Routine Size: 


—> 


00 


00 


BC 


62 


68 bytes, 


Ax-11 BLi jeqnse v4.0 
BASRTL.SR 


IF .mame_desc CO] LSS 0 THEN name_desc (0) = 10; 


name desc [1] = .name; 
RETURN; 
END; ! End of mess_rcvname 
26 41 50 42 04 00213 P.AAB: .ASCII <4>\BPA$\ 
PREF IX= P.AAB 


03FC 00000 MESS_RCVNAME : 
WORD 


. Save R2,R3,R4,R5,R6,R7,R8,R9 
59 F6 AF 9A 00002 MOVZBL PREFIX, R9 
56 OC AC 00 00006 MOVL FIRQB, R6 
58 OA DO O000A MOVL #10, R8 
57 08 AC 00 00000 MOVL NAME, R7 
E7 AF 59 2C 00011 MOVCS R9, PREFIX+1, #0, RB, (R7) 
67 00017 
OD 18 00018 GEQ 1$ 
57 59 CO OOO1A ADDL2 R9, R7 
58 59 C2 0001D SUBL2 R9, RB 
06 A6 06 2c st MOVCS #6, 6(R6), #0, RB, (R7) 
52 04 AC 00 00027 1$: MOVL wane DESC, R2 
OA 00 3a 00028 LOCC #10, @NAME 
02 12 00030 BNEQ oS. 
51 D4 00032 CLRL R1 
51 08 AC C3 00034 2$: SUBL3 NAME, R1, (R2) 
03 18 00039 BGEQ 
62 OA 00 00038 MOVL #10, (R2) 
04 A2 08 AC 00 O003E 3$: MOVL NAME, 4(R2) 
04 00043 RET 
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: 


550 


5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
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MEWN—OOONOULSWN—O 


MOANA 
OONOUSWN— 


SUSAR UNO 


ANNO 
m—00 


00000 000000000000 C0 0D 000900 
NOUS WR OO OONOUES Wr 
PIPIPINININIPINININ INNA 2 a at ts i he ed a a dd dd dd 


s 


woowowowowowownowowvonno 


IWAI.AIAINWIAIAIPOROPIPIPININPININID) 2 OOO 
MEWN $9 OONOUESWN —O OONOUSWN—O0@ 


ce ee ee ee ee ed ee ee ed ee ed ed ed ed ee ee ee ee ed ee ee el ce ee eel el cee eel el cee cel cel el cel el el ce ce el ce el eel ce cl eel eee ee 
WDOOOOODOOODOODODOODOOOOOOONO 
Sse 


RERRER 
QuFwry—O0e 


ROUTINE bpa$Smess_icl ( 
firab, 
buflen, 
i bufadr 
le 


FUNCTIONAL DESCRIPTION: 
he input 


i FORMAL PARAMETERS: 


i IMPLICIT INPUTS: 


firgb Cfqb$b_jobnr] 
firgb Cfqb$t_rcvnam] 


firqgb Cfqb$t_par_str] 


i IMPLICIT OUTPUTS: 
NONE 
i ROUTINE VALUE: 


1 = success 


? +- failure 
' SIDE EFFECTS: 
NONE 


BEGIN 


MAP 
firqb : REF $fqb_def; 


LOCAL 
sca_butter : BLOCK (532, BYTE], 
s 


lognam_desc : VECTOR (2, LONG), 


lognam : BLOCK (10, BYTE), 
chan; 


14-Sep-19 


15 
NEREETRE MARRSY WMGH MSN 


! Simulate send local data message 
' r FIRQB 


The receiver mailbox name is created as receiver name from firab, 
refixed Y "BPAS', and a channel is assigned to the mailbox. 

n firqb is checked and if 

parameterstring and the databuffer are cop 
to the mailbox. Finally the channel is deassigned. 


faul 4 an error is signalled. The 
ed into a buffer and sent 


firab address to firab 
buflen.rl.v Length of output data buffer in bytes 
bufadr.ra.v Starting address of data buffer 


0 

receiver logical name in ASCII, 
padded with zero (6 bytes) | 
optional user parameter string, 
padded with zero (20 bytes) 


Defines firgb 


Buffer for qutnut message 
Status received from calls 
to system services 

Char. string descr. pointing 
to the logical mailbox name 
Logical name of mailbox 
Channel to mailbox 


J15 
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me 1 
BASRTL.SRC JBPAMESAG.B32;1 (6 


73 

74 ! Create the logical name of the mailbox 

75 mess_rcvname (lognam_ desc, lognam, .firqb); 

£6 ! Assign'a channnel to the mailbox 

mS hy (sts = S$assign (devnam = lognam_desc, chan = chan)) 
4 BEGIN 

&¢ IF .sts EQLU 2X°144' 

8 THEN 


RETURN SIGNAL (nosuch) 
RETURN SIGNAL (.sts); 
END; 
! Check input data. 
IF (.buflen GTRU 512) THEN RETURN SIGNAL (badfuo); 
IF .firgb Cfqb$b_jobnr] NEQU 0 THEN RETURN SIGNAL (errerr); 
: PAN cog butter from —— string and data buffer 
bo 


co 
SSESLEAF 
AAAS SE 


SESESILSSSSSSSSSLLLE 
DONO WN $0 OONAOUEWN (O CONOU SW —OWOOn 


ooo 
Wwnr— 


(20, firgb Cfqb$t_par_str], .buflen, .bufadr, 0, 532, msg_buffer); 
! Send message to mailbox 
bpa$Smess_send (.chan, msg_buffer, 20 + .buflen); 
! Deassign the channel 


IF NOT (sts = $dassgn (chan = .chan)) THEN RETURN SIGNAL (.sts); 
RETURN 1; 
END; 


DDD DSP SISSISIA ASIST 


SoSSooDoOLS 
a kk a dd dd od 
woowovdowowowowowvowvowvowvnns 

SN NNN NNN SOO 


=NNININININININPININININININNNN AWN nonoponony 


'End of bpa$mess_\cl 


.EXTRN SYSSASSIGN, SYSSDASSGN 
O1FC 00000 BPASMESS_LCL: 
“WORD 


Save R2,R3,R4,R5,R6,R7,RB : 1890 | 
SE FDD4 CE 9€ 00002 MOVAB =-556(SP), SP ; | 
52 04 AC DO 00007 MOVL FIRQB, Re : 1949. 
52 DD 00008 PUSHL R2 ; 
08 AE 9F 0000D PUSHAB LOGNAM : 
18 AE OF 9019 PUSHAB LOGNAM DESC : | 
AS AF 03 FB poo) CALLS #3, MESS_RCVNAME : 
7E 7C 00017 CLRO = = §P) : 1952. 
08 AE OF 90019 PUSHAB CHAN : | 
1¢ AE 9F OO0IC PUSHAB LOGNAM_DESC F 
000000006 00 04 FB OOO1F CALLS #4, SYSSASSIGN : 
58 9 DO 00026 MOVL RO, STS F | 
11 58 €8 00029 BLBS STS, 1$ ; | 
00000144 &8F 58 01 000 CMPL S15. #324 > 1956. 
6 12 00 BNEQ $ ; | 
00148028 8F DD 0 PUSHL #1736744 : 1958 
60 0038 BRB 6$ : | 
00000200 = &F 08 AC 01 00030 18: CMPL  BUFLEN, #512 > 1966 


kK 15 
BPASME SAG 16-Sep- 
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8 1B 00045 
001A8090 F DD a0947 
4E 11 4D 
05 A 33 QO4F 2$: 
08 13 00052 
001A8210 8F DD 00054 
41 11 QOO5A 
5 RE SE OOORT 
57 00 Oc Ae 14 2c 00085 
66 00068 
9 18 0006C 
56 14 CO O0006E 
57 4 § 00071 
57 00 oc «BC 08 ac 2c Bgore 
66 00078 
7E 08 AC 14 €1 Q007C 4$: 
1¢ «AE 9F 00081 
08 ag DD 00084 
0000v CF 03 FB 00087 
6E DD 0008C 
000000006 00 01 FB 0008 
58 50 00 0009 
OA 58 E8 00098 
58 DD 00098 5$: 
000000006 00 01 FB 00090 6$: 
04 000A4 
50 01 DO OO0AS 7$ 
04 000A8 


; Routine Size: 169 bytes, Routine Base: _BPASCODE + 025C 


1986 $1iserst | Yansat ede Sepamtcag oss. 1 


BLEQU 2$ 
PUSHL #1736848 
TSTB (R2) 
BEQL 3 
PUSHL #1737232 
BRB 6$ 
MOVZWL #532, R 
MOVAB MSG_BUFFER, R6 
MOVCS #207 12(R25, #0, R7, (R6) 
BGEQ 4$ 
ADDL2 #20, R 
SUBL #20, R 
MOVC BUFLEN, @BUFADR, #0, R7, (R6) 
ADDL3 #20, BUFLEN, -(SP) 
PUSHAB MSG BUFFER 
PUSHL CHA 
CALLS #3, BPASMESS_SEND 
PUSHL 
CALLS #1, SYSSDASSGN 
MOVL RO, STS 
LBS . 
PUSHL 
CALLS #1, LIBSSIGNAL 
MOVL #1, RO 
RET 


Page 


Be Se Se Se Se Be Se Se Be Se Se Ge Se Ge Se Be Ge Se Fe Ge Se Se Fe Be Ge Ges Se Be 


18° 
(6) 


1968 


1971 


15 
BPASMESAG deen 


1984 01:38:18 AX=-11 Bliss-32 V4.0-74 Page 19 
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; 607 1980 1 ROUTINE tpaSmess_send (chan, pl, p2) : NOVALUE = ! Sends message 
: 608 1981 1 - Sed ! a mailbox . 
; 609 1386 1 
; 610 1985 1 !4¢4 
> 611 1984 1 ! FUNCTIONAL DESCRIPTION: 
3 ol¢ 1985 1! 
; 61 1986 1! Sends a message to a mailbox using S$qiow and checks the return 
> 614 1987 1! status. 
; 615 1988 1! 
; 616 1989 1 ! FORMAL PARAMETERS: 
> 617 1990 1! 
: 618 pase chan = channel number opened to mailbox 
; 619 1338 1: pl = pointer to databuffer 
; 620 1995 1! pe = number of bytes to send 
; 621 1994 1! 
5 ose 1995 1 ! IMPLICIT INPUTS: 
; 6 1996 1! 
> 624 1997 1! NONE 
3; 625 1998 1! 
; 626 1999 1 ! IMPLICIT OUTPUTS: 
> 627 2000 1! 
> 628 2001 1! NONE 
; 629 $008 1! 
; 630 2005 1 ! ROUTINE VALUE: 
s @3) 2006 1! : 
; 632 2005 1! ? = failure 
: @30 2006 1! 
: 634 2007 1 ! SIDE EFFECTS: 
> 635 2008 1! 
; 636 2009 1! NONE 
3; 637 2010 1! 
; 638 2011 1 !-= 
: 639 $oi¢ 1 
3; 640 201 § BEGIN 
> 641 2014 
> 64 2015 2 LOCAL - 
> 64 2016 2 sts, ' Status received from calls to system 
> 644 2017 status ! need 2 locals for status 
3 645 sols event flag, 
: 646 019 ! services ; 
: 647 2020 iosb : BLOCK (8, BYTE]; ! Status block from $qiow ' mM 260 
> 648 2021 § + 
: 649 $056 ' Allocate an event flag. 
; 650 0 te 
3; 651 024 
3 63¢ 025 sts = LIBSGET_EF (event ton): 
$37 $0c6 IF (NOT .sts)”~ THEN RETURN SIGNAL (.sts); 
; 655 028 ! Send the message 
> 656 544 ; 
3; 657 P 2030 sts = Sqiow (efn = .event hw. chan = .chan, iosb = iosb, 
3 628 3! na func = io$_writevBLk OR io$Sm_now, pl = .pl. p2 = .p2); 
; 660 $33 ! Make sure event flag is deallocated. 
: $6) bee !- 
; $68 $3 Status = LIBSFREE_EF (event_flag); 


4 15 
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3 66% 8 IF (NOT .status) THEN RETURN SIGNAL (.status); 
3 666 039 ‘+ 
; 667 040 ' Now check return status from $Q10W. 
; 668 041 !- 
3; 669 O4e IF NOT (.sts) 
; 670 04 
3: 671 2044 BEGIN 
3; 67 2045 IF .sts EQLU %x'19C" 
s 67 $pe6 
: 674 204 RETURN SIGNAL (noroom) 
: or soce RETURN SIGNAL (.sts) 
Py SCS); 
3; 677 Spee 
; 678 051 2 END; 
; 679 $036 § 
; 680 205 
: oa) Spee § ' Check status returned in iosb 
; 68 2056 2 IF NOT .iosb CO, w_] THEN RETURN SIGNAL (.iosb CO, w_J); 
3 684 2057 2 
3; 685 2058 2 RETURN; 
> 686 2059 1 END; ! End of bpa$mess_send 
.EXTRN SYS$QI10W 
0004 00000 BPASMESS_SEND: 
~WORD Save R2 ; 1980. 
5E Oc C2 00002 SUBL2 #12, SP : 
5E dD 00005 PUSHL P ; 2025 
000000006 00 01 FB 00007 CALLS #1, LIBSGET_EF 5 
52 50 pdO O0000E MOVL RO, STS é 
04 52 €8 00011 BLBS STS, 2$ : 2026 
52 DD 00014 1$ PUSHL STS : 
4D 11 00016 BRB 5 : 
7E 7C 00018 28 CLRQ -(SP) 3 2031. 
7E 7C QOO1A CLRQ -(S 3 
7E 08 AC 7D 0001C MOVQ P1, -(SP) : 
7E 7C 00020 cLRa =C§ : 
24 AE 9F 000 é PUSHAB 10S : 
7E 70 8F 9A 000 MOVZBL #112, -(SP) : 
4 AC ODD 90029 PUSHL CHA : 
C AE 0D 0002C PUSHL EVENT_FLAG 3 
00000000G 00 0c Fe 0002F CALLS #12, SYS$Q10W : 
52 50 p00 000 MOVL RO, STS F 
000000006 00 BF Oe foe CALS #1, LIBSFREE_EF oo 
04 5 EB 0048 BLBS STATUS, 3$ ~ : 2037 
50 DD 0004 PUSHL 5 
1C 11 00047 BRB : 
11 52 E8 00049 3$: BLBS STS, 4$ : 204 
0000019C &F 3 » 0035 coee STS, #412 : 204 
001A8020 er 0p bne PUSHL #1736736 3; 2047 
08 11 058 BRB 5$ 3 


: 2056 
: 2059. 
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1-272 - BASRTL.SRC JBPAMESAG.B32;1 
|; 6688 060 1 ROUTINE bpa$Smess_rcyv ( ' Simulates receive message 

; 689 061 1 firab, ! Address of F 

; 690 066 1 buflen, ! Length of input data buffer 
; 691 065 1 bufadr, : ey bee address of data buffer 

: 69 064 1 bytxfr ' The number of bytes transferred 

; 69 065 1 )= 

; 694 066 1 

; 695 067 1 !4+ 

; 696 068 1 ! FUNCTIONAL DESCRIPTION: 

; 697 069 1! 

; 698 070 1! A check is made that the caller is a declared receiver and then | 

> 699 Ory ¥: the input in firgb is checked. If no partial message is outstanding 

; 700 Ors 1: the mailbox is read into a buffer and if a message is received the 

; 701 075 1! parameter string is filled and the buffer pointer is moved 20 bytes 

; 70 2074 1! forward. The caller's data buffer is filled with data from buffer 

; 70 2075 1! pointer and onwards until the end of the message, and the buffer 

3 704 2076 1! pointer is updated. If the whole message is transferred to the caller 
5; sone ‘3 or the caller wants the message truncated, then the buffer pointer 

5 re ah: : } is cleared to indicate that no partial message is outstanding. 

; 708 2080 1 ! FORMAL PARAMETERS: 

; 709 2081 1! 

3; 710 2082 1! firab = firqb address : 

ee 4) 2085 1! buflen.rl.v Size of the receive data buffer, in bytes 

3 ng 2084 1! bufadr.ra.v Starting address of the data buffer 

3; 71 2085 1! bytxfr.ww.r Number of bytes transferred 

; 716 2086 1! 

; 75 2087 1 ! IMPLICIT INPUTS: 

; 716 2088 1! 

gs wv" $090 7 firgb Cfqb$b_rmod] = receive modifiers : : 

; 718 090 1! bit 0 set -caller wants to wait 

: 719 2091 1! for messages 

s £20 2092 1! bit 1 set -caller wants message 

3; 721 2095 1! truncated 

s 22 2094 1! firqb (8, W_J - firqgb (10, Ww.J = 0 : 

3 23 2095 1! firagb fqbSu_sleep) = sleep time (in seconds) 

; 724 2096 1! Ae 20, WJ = firgb (31, WJ = EGS 
3; 725 2097 1! bpa$a_msg ([msg$l_remain] = the number of bytes that remain if 
3; 726 2098 1! a partial message is outstanding 
y fer 044 .: bpa$a_msg [msg$t_buffer] = points to buffer containing the 

: 728 100 1! remaining bytes to transfer if a 
3; 729 101 1! partial ee is outstanding 

3; 730 106 1! bpa$a_msg [msg$l_messchan] = channel opened to mailbox by 

s fl 103 1! bpa$mess_dcl 

ee $ 1046 1! bpa$a_msg ([ms$l_buffptr] = points to next byte to be . 

Sp $102 . 7 transferred in msg_buffer (0 if 

3; 734 106 1! buffer is empty) 

Re te 107 1! 

; 736 108 1°! IMPLICIT OUTPUTS: 

war 109 1! 

: 738 110 1! firgb Cfqb$w_not_tran] = number of data bytes not 

3; 739 11 #1! transferred 

; 760 stig 1! firab Beer = 1 ' A 261 
3 741 15 67! firqb Cfqb$t_per_str] = data passed as parameters by the 
: reg 1144 1! , sender, padded with zero ae 
: 74 73 bpa$a_msg [msg$l_remaini = the number of bytes that remain if 
; : a partial message is outstandin 

744 1146 1! tial tstanding 


- -—_~_ -- —- -— ~ —- ----- — --- -_—_——_ — —- —_——- - - - _ _ 
| 
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If no partial message is outstanding (i.e. buffer pointer = 0), then try to 
read the mailbox into msg_buffer. The Length of the received message is 
stored in bytes_remain. 


IF .buff_ptr EQ@LU 0 
THEN 


BEGIN 
bytes_remain = read_mailbox (.firqb); 
If a message is received, then fill the parameter buffer 


IF bytes. remain LEQU 20 
THEN 


k -272 14-Sep-1984 BASRTL.SRCJBPAMESAG. 835; 1 
'; 745 $e 8 bpa$a_msg ([msg$t_buf fer] contains the remaining bytes to 
; 746 113 1! _ — transfer if a pertisl aecenge” is 
; 747 19 7! outstanding 

3; 748 120 3! bpaSa_msg (msg$l_buffptr] = points to next byte to be 

; 749 ie &. transferred in msg. buffer (0 if 
s 750 1 § 1! é buffer is empty) 
is 31 1 7 4 firagb Cfqb$b_jobnr] = 0 

3 ey; 124 1! 

wee 125 1 ! ROUTINE VALUE: 

; 754 ‘ee 9 3 

; Foo eier 3 | 1 = success 

5 £28 128 1! ? - failure 

s or 129 1! 

; 758 130 1 ! SIDE EFFECTS: 

tae reek 

3; 760 $138 1! NONE 

: 761 1 1! 

: r6¢ 134 1 !e< 

; 7 135 1 

: 764 136 2 BEGIN 

> 765 2137 2 

> 766 2138 2 MAP 

3: 767 2139 2 firgb : REF ne def ! Defines firab 

3; 768 2140 2 bytxfr : REF VECTOR £1, word); ! Where to store byte count 
: 769 2141 2 

; 770 2142 2 BIND 

3 fry 2143 2 bytes_remain = bpa$a_msg [vs a -remainy, ! Remaining bytes 
s ie 2144 2 buff_ptr = qpede rrse “Cmsg$l utBe trJ, uffer Pointer 

: 773 2145 2 rcv_mod = firab $b_rmod] : BITVEC TOR. cay. Receive modifier 
5 re sig § msg_ “buffer = bpaSa. _msg Cmsg$t_ buffers: ! Buff 

3 oe $18 § ! Is the caller a declared receiver? If not, then signal an error. 

3 oe $129 3 IF .bpa$a_msg Cmsg$l_messchan] EQLU 0 THEN RETURN SIGNAL (badfuo); 

: 780 $128 2 ! Check input data 

3; «781 215 ¢ 

Se, 2154 iF < A. CHSFAIL (CHSFIND_NOT_CH (4, firqb (8, bj, 0)) 7 

; 78 3199 3 T CHSFAIL (CHSFIND_NOT_CH (12. firgb (20, 5.4. 0))) 

: 784 156 2 n” 

; 785 2157 2 RETURN SIGNAL (badfuo); 

: 786 2158 2 

$ 2159 2 

3 6169 § 

Z 161 

: $108 2 

; 163 2 

3 164 g 

3 165 

; 166 3 

5 167 3 

5 $108 3 

: 169 ; 

: 170 

: 171 4 

3 "6 4 

: 2173 4 


BEGIN 
CHSCOPY (.bytes_remain, msg_buffer, 0, 20, param_string ([0]): 
bytes_remain = 0; 


——_—_—_— 
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80 END 

80 ELSE 

804 BEGIN 

it CHSCOPY (20, ag ny heh 6. 20, param_string ([0]); 

06 buff_ptr = msg_buffer + 20; 

80 pyces_renetn = .bytes_remain = 20; 

808 END; 
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END; 


+ 
! Place the parameter buffer in the FIRQB. This will be either from the 
beginning of a message (above) or from the previous message. 


CHSCOPY (20, param_string (OJ, 0, 20, firgb Cfqb$t_par_str]); 
! If msg-buffer is empty, then clear ‘number of bytes transferred’ and 
! "number of bytes not transferred’. 


IF .bytes_remain EQLU 0 
THEN 


= 0; 
Ne Cfqb$Sw_not_tran] = 0; 


ELSE 
If the number of bytes oe in msg-buffer is less than bufferlength, 
then set ‘number of 5 tee transferred’ equal to number of bytes remaining 
! and eer ae of bytes not transferred’. 


BEGIN 
he ag C0) 
f 

EN 


WAWNWIWNIRINIMIPININPONPNPUPYDY) 2 2 SO SS OO 
WN SO OONOUESWUN —OVODONOUSWN—O0On 


IF .bytes_remain LEQU .buflen 
THEN 


(G0 Cd Cd Od Od GD Cd OD CD CD Gd Cd OD OD Ov Od CD CD O09 0D Cd Od CD 09 CD Cd CD CD CD CD CD 
POMONA 8 9 9 | | “DOO SOSOOOCOC VO OOOOOO OO OWW OM WON 
AE WN 3 O OONOAUS WN O ODNAUS WN 3 O ODNAU EWN OOD NA UE WN OO OONOUS 
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34 BEGIN F 

35 bytxfr CO] = .bytes_remain; 

36 firqb Cfqb$w_not_tran] = 0; 

37 END 

38 ELSE , 

39 ! If the number of bytes — in msg-buffer is larger than bufferlength, 
840 ! then set ‘number of bytes transferred’ + to bufferlength and ‘number of 
841 !' bytes not transferred’ equal to number of bytes remaining minus the buffer- 
Hk ! Length. 

84 BEGIN 

844 ayeutr C0] = .buflen; : 

845 firqgb Cfqb$w_not_tran] = .bytes_remain - .buflen; 

ac9 END; 

848 ' Copy ‘number of bytes transferred’ from msg-buffer to receive buffer and 
849 ! update the buffer pointer. 

850 CHSCOPY (.bytxfr (OJ, .buff_ptr, 0, .buflen, .bufadr); 

851 2 buff_ptr = .buff_ptr + .bytxfr (0); 

Hh em 

854 § ' Set number of bytes remaining in msg-buffer equal to number of bytes not 
$23 7 ! transferred. ; 

56 8 bytes_remain = .firqb Cfqb$w_not_tran]; | - 

857 9 ! Set the subfunction code for data message in firqb, ! A 261 
858 230 firgb Cfqb$b_subfun] = fun$k_sricl; ! A 261 
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14-Sep-1984 11:56:51 BASRTL.SRCJBPAMESAG.B32;1 
; 859 1 : If alt the message is transferred or if the caller wants the message 
5 +4 ¢ ! truncated, clear the bufferpointer. 
; ee ¢ IF .bytes_remain EQLU 0 OR .rcv_mod [C1] THEN buff_ptr = 0; 
; B64 ¢ 
; Bs 3 In case the caller is using the job number field, set it to zero. 
: 86 39 firab Cfqb$b_jobnr] = 0; 
: B68 $540 RETURN See 
; 869 2241 : 'End of bpa$Smess_rcv 
BYTES_REMAIN= BPASA_MSG+558 
BUFF _PTR= BPASA_MSG+554 
MSG_BuFFER= BPASA_MSG+22 
OOFC 00000 BPASMESS_RCV: 
» WORD Save R2,R3,R4,R5,R6,R7 ; 2060 
57 00000000" EF 9E 00002 MOVAB BYTES_REMAIN, R7 : 
56 04 AC DO 00009 MOVL FIRQB, R 3: 2165 
FDD2 C7 05 00000 TSTL BPASA_MSG ; 2150 
1A 13 00011 BEQL 3 
08 A6 04 00 38 00013 SKPC #0, #4, 8(R6) i 2154 
02 12 00018 BNEQ 1$ 3 
2] D4 OOO1A CLRL R1 : 
1 D5 OOOIC 1$ TSTL R1 3 
OD 12 QOO1E BNEQ 3$ ; 
14 A6 0c 00 38 00020 Pc #0, #12, 20(R6) 3 23s 
02 12 00025 UNEQ 2$ 3 
51 04 00027 CLAL R1 : 
51 D5 00029 2$ TSTL R1 3 
ge 13 00028 BEQL F 
001A8090 F OD itty 3$ PUSHL #1736848 : 2157 
000000006 00 01 FB 000 CALLS #1, LIBSSIGNAL 3 
04 0003A RET 3 
FC A? D5 00038 4$ TSTL BUFF _PTR : 2163 
2C 12 0003E BNEQ 6$ : 
56 DD 00040 PUSHL : 2166 
O000v CF 01 FB 00045 CALLS #1, READ_MAILBOX : 
67 50 DO 0004 OVL RO, BYTES REMAIN 3 
14 67 D1 O004A CMPL YTES_REMAIN, #20 > 2169 
OD 1A 00040 BGTRU $ : 
FDE8 (C7 67 2C O004F MOVCS BYTES_REMAIN, MSG_BUFFER, #0, #20, - : 2172 
1E A? 00056 PARAM” STRING ; 
67 D4 00058 CLRL BYTES_REMAIN : 2173 
10 11 QOOSA BRB 6$ : 2169 
FOES (C7 14 28 B00 2E 5$ MOVC3 #20, MSG_BUFFER, PARAM STRING : 2177 
FC OA? FDFC C7 SE 0006 MOVAB MSG_BUFFER+20, BUFF_PTR > 2178 
67 14 C2 00069 SUBL #20, BYTES_ N 3: 2179 
1E AZ 14 28 O0006C 6$ MOVC #20, PARAM STRING, 12(R6) : 2188 
50 67 09 9007 MOVL BYTES_REMAIN, RO : 2192 
08 12 0007 BNEQ $ : 
10 BC B84 0007 CLRW @BYTXFR : 2195 
OA A6 B4 0007A CLRW 10(R6) : 2196 


nn 


roe 
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$ 18 tg } ROUTINE read_mailbox (firqb) = ! Reads the mailbox 
: £78 44 1 !++ 
$ ere “2 : FUNCTIONAL DESCRIPTION: 
; 876 23 1! The receiver mailbox is read into a buffer. If a a | is received, 
; are 248 1! the jonge® of the message is returned to the caller. If no message is 
; 878 249 1! received and the caller doesn't want to wait, an error is signalled. 
; 879 250 1! If the caller wants to wait, an AST is set to awaken the process when 
; 880 $$2! 7! the message comes and the process is put to sleep. If a sleep time is 
> 881 26 1! apeety see in firqb, the process is awakened when the time has expired. 
3 Ht $2 1! en the process finally wakes up either by the arrival of a message 
; oti See ! or by an expired sleep time, an error is signalled. 
° 85 256 1 ! FORMAL PARAMETERS: 
> 886 257 1! 
3 887 2258 1! firgb = address to firqb 
; 888 2259 1! 
$ HH sser : : IMPLICIT INPUTS: 
3; «891 $56¢ 1! bpa$Sa_msg [msg$l_messchan] = channel opened to mailbox by 
; 203 7% ? bpa$mess_dcl 
: §9 2264 1! bpa$a_msg [msg$t_buffer] = points to buffer for message from 
; 894 2265 1! é mailbox : 
3; 895 2266 1! firab Cfqb$b_rmod] = receive modifier : ; 
; 896 2267 1! bit 0 set - caller wants to wait for 
; 897 2268 1! ; messages 
; 898 2269 1! firaqb Cfqb$w_sleep] = sleep time (in seconds) 
; 899 2270 1! 
; 900 2271 1 ! IMPLICIT OUTPUTS: 
: 901 2e72 1! 
3 308 $$t7 ; bpa$a_msg ([msg$t_buffer] = points to buffer for received message 
: 904 2275 1 ! ROUTINE VALUE: 
; 905 2276 1! 
; 906 ale oe length of received message (in bytes) 
: 907 2278 1! 
; 908 2279 1°! SIDE EFFECTS: 
; 909 2280 1! 
: 910 2281 1! NONE 
: 911 2282 1! 
: 31g 2283 1 !-- 
; (91 284 «(1 
3 914 285 § BEGIN 
s 915 286 
; 916 2287 2 BUILTIN 
3; «917 $sas emul; 
; 918 289 : 
: 919 2290 global register 
; 920 2291 ccb = 11: ref block C,byte); 
: 921 $506 
3 922 29 MAP 
3; 923 294 firqb : REF $faqb_def; ! Defines firgb 
3 924 295 
3 92s 296 LOCAL ; 
; 926 297 sts, ' Status received from calls 
3; 927 2298 ' to system services 
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; ose g + event fl ! need 2 locals for status 
3 ve 
: 388 § 01 iosb = Broek (8, BYTE], ' Status block from $qiow ' m 260 
>; 931 b¢ daytim : VECTOR C2, LONG); ' Stores sleeptime in system 
; 838 $07 ' time format 
: 934 305 EXTERNAL 
; 935 306 OTS$$A_CUR_LUB; 
: 338 $308 BIND 
; 938 2309 chan = bpa$a_msg_ [msg$l_messchan], ' Channel 
; 939 §3i9 § msg_ buffer = oppasa- msg jtasgsta buffer], i! Buffer 
; ae sai) § qiow_sts = iosb CO; w_ wy to ' M 260 
; ak a318 $ transf_bytes = iosb (2, w_] : WORD, 4 Pot a’ bytes M 260 
: rre 
; eee sai2 § rcv_mod = firqb Cfqb$b_rmod] : BITVECTOR 89: 1 hecotuer modifier 
: 946 2317 2 CCB = .OTS$$A_CUR_LUB; 
: te S319 3 ts 
: 949 2320 : - Allocate event flag. 
: 951 2322 2 
; 952 2se5 2 sts = LIBSGET_EF (event_flag) 
3 at, $3S¢ § IF (NOT .sts) THEN RETURN S GNAL (.sts); 
: eee $359 § ! Try to get a new message from the mailbox 
: 957 P 2328 2 sts = Sqiow (efn = .event flag, chan = .chan, iosb = ios 
; 958 2329 2 func = io$_ readuath OR io$m_now, pl = msg_ LA, *“p2 = 532); 
HBG. 
; 30) $335 3 Deallocate the event flag, and then check the status of the $Q1(CW. 
: 963 2334 2 
> 964 $332 2 status = LIBSFREE_EF (event_fla 
: #1 $336 § IF NOT (.status) THEN RETURN SI ni (.status); 
: 967 3338 : IF NOT (.sts) THEN RETURN SIGNAL (.sts); 
; 969 2340 IF NOT .qiow_sts AND .qiow_sts NEQU ss$_endoffile 
: 970 2341 THEN 
3 37) $328 RETURN SIGNAL (.qiow_sts); 
: eee Stee 2! If a message is received, then return number of transferred bytes. 
; La $329 $ IF .qiow_sts NEQU ss$_endoffile THEN RETURN .transf_bytes; 
: 977 are $ ! If there is no message and the caller doesn't want to wait, then signal 
: ors $08 ! an error. 
> 980 351 IF NOT .rcv_mod [0J 
3; 981 326 THEN 
3 i pe 
+ 984 2355 i free up this 1SB/LUB/RAB 
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985 te 

986 if Oey NEQ 0 

987 N IF .CCB CLUBSV_IO_ACTIVE] THEN BASS$S$CB_POP (); 

988 RETURN SIGNAL (nosuth); 

33 on 

991 ! If the caller wants to wait for the message and a sleeptime is specified, 
a4 ! then schedule a wakeup. 

994 IF .firqb Cfqb$w_sleep] NEQU 0 

995 ae | 

996 BEGIN 

pad 4 emul (ZREF (-10000000), firgb Cfqb$w_sleep], ZREF (0), daytim [0]); 
999 IF NOT (sts = $Sschdwk (daytim = daytim)) THEN RETURN SIGNAL (.sts); 


° 
S 


ELSE 
! If the caller wants to wait for the message but no sleeptime is specified, 
' then set an attention AST (so that the process is awakened when the next 
: seageens * : ~yuite 


Seas 


sts = LIBSGET_EF (event _fla 
IF (NOT .sts) THEN RETURN S iia (.sts); 


IF NOT (sts = $qiow (efn = .event “fo chan = .chan, iosb = iosb, 
unc = jo$_setmode OR io$m_wrtattn, pl = bpa$wakeup)) 


EN 
RETURN SIGNAL (.sts); 
IF NOT .qiow_sts THEN RETURN SIGNAL (.qiow_sts); 


sts = LIBSFREE_EF (event_fla 
IF (NOT .sts) THEN RETURN SI nia, (sts); 
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END; 
: erpecnete the process 
iber; 
! when the process wakes up, return an error. 
RETURN SIGNAL (nosuch); a 
END; ‘End of read_mailbox 
CHAN= ee -NS6 
MSG_BUFFER= BPA G+22 
EXTRN OTS$SA at wry SYS$SCHDWK 


TEXTRN SYSS$HIBER 
O8FC 00000 READ_MAILBOX: 
WORD 


Save R2,R3,R4,R5,R6,R7,R11 2242 
LIBSFREE ff +: 
SYS$Q10W 

t1ascet “tr 
CHAN, 
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16 
BPASMESAG 18-Se -1984 01:38:18 AX-11 Bliss-32 V4.0-74 Page 32 
1-272 12-Sep-19 4 11:56:51 EBASRTL SRC IBPAMESAG.B3 31 . (10) 
3 1086 4 } ROUTINE bpaSmess_rem (firqb) = ! Simulates remove receiver 
; 1031 401 1 !44 
; S36 Pt ! } FUNCTIONAL DESCRIPTION: 
3 1034 406 1! The input in firgqb is checked and if faulty an error is signalled. 
: 1Oe2 3406 ! } The receiver is removed by calling, bpa$mess_clear. 
3; 1037 407 1 ! FORMAL PARAMETERS: 
; 1038 2408 1! ; 
; 1039 2409 1! firgb = address to firqb 
3; 1040 410 1! 
3; 1041 411 1°! IMPLICIT INPUTS: 
; 1966 re es 
3 104 2413 1! firaqb Cfqb$b_jobnr) = 0 
3: 1044 2414 1! ee 6, B.J - firgb (31, 8.] = O E 
3 1045 $ei2 7 bpa$a_msg [msg$l_messchan = channel opened to mailbox by 
3; 1046 416 1! receiver t 
3 1047 2417 1! bpa$a_msg [Cmsg$t_namedesc] = char. string desc. pointing 
: 1048 2418 1! to logical name of mailbox 
> 1049 2419 1! 
; 1050 2420 1 ! IMPLICIT OUTPUTS: 
3; 1051 2421 1! 
; 1052 ses¢ '% bpa$a_msg [msg$l_messchan] = 0 (indicates that the receiver 
3; 1053 2425 1! is removed) 
3: 1054 2424 1! 
3; 1055 2425 1 ! ROUTINE VALUE: 
>: 1056 sess 1! 
; 1057 24e7 1! 1 = success 
3; 1058 2428 1! ? +- failure 
: 1059 sets 1! 
: 1060 2430 1 ! SIDE EFFECTS: 
: 1061 2431 1! 
3: 1062 2432 1! NONE 
: 1063 2433 1! 
> 1064 2434 1 !-- 
: 1065 2435 1 
; 1066 2436 2 BEGIN 
: 1067 2437 2 
; 1068 2438 2 MAP . é 
3; 1069 2439 2 firqgb : REF Sfab_def; ! Defines firgb 
: 1070 or 2 
3 107) -? 2 ! Check input. 
: 1078 guc8 3 IF NOT CHSFAIL (CHSFIND_NOT_CH (26, CHSPTR (firgb (6, b_J), 0)) 
: + h ore? § RETURN SIGNAL (badfuo); 
; Hh 144 eet 2 IF .firqgb Cfqb$b_jobnr] NEQU 0 THEN RETURN SIGNAL (errerr); 
; 1079 449 : ! Perform ‘remove receiver’ 
; 1080 450 § pootness,£ lear (); 
3; 1081 451 RETURN 1; 
: 1082 2452 1 ND; '‘End of bpa$Smess_rem 


m 16 
A aaa 1e=3ep=1986 11:56:51 wette TLeSRESBPAMESAG.030;1 99" (485 


0004 00000 BPASMESS_REM: 
WORD 


Save R2 3; 2399 
52 04 AC 0 00 MO FIRQB, R2 : 24643 
06 A2 1A 00 38 2090 SKPC A #26, 6(R2) : ¢ 
Q2 1 008 BNEQ 1$ : 
51 04 00000 CLAL ss R11 : 
51 D3 OOOF 1$ TSTL = R11 : 
08 13 00011 BEQL 2$ : 
00148090 8F DD 00013 PUSHL #1736848 + 2645 
08 11 99019 BRB 38 ; 
05 A2 95 0001B 2$ TSTB (R2) t 2647 
OE 13 OOO1E BEQL 6 4$ : 
00148210 8F DD 90020 PUSHL #1737232 : 
000000006 00 01 FB 00026 3$ CALLS #1, LIBSSIGNAL : 
. 0000V CF 00 FB b00es 4$ CALLS #0, BPASMESS_CLEAR : 2450 
50 01 D0 000 MOVL #1. RO + 2651 
04 00036 RET : 2452 


; Routine Size: 55 bytes, Routine Base: _BPASCODE + 054A 
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- 
1 
ASME SAG 1b-se -1984 01:38: AX-11 Bliss-32 V4.0-74 Pa 
aye 12-808-1 8c 91:28:18 BASRTL. RCIBPAMESAG.B3 31 atti 
1 453 1 ROUTINE exit_handler ( ' Exit handler 
454 exit_reason !' reason 
455 ) : NOVACUE = i 
283 
4 !e¢ 
4 8 ' FUNCTIONAL DESCRIPTION: 


SBSZS2SSSZESESSE 


1 
1 1 
1 1 
1 1 
1 1 
} 1 
1 460 1! This is the exit handler for the BASIC-PLUS message handler. 
1 461 1! It deletes the system ropeces name defined by this user, in 
: re : case it hasn't been deleted already. 
1 464 1 ! FORMAL PARAMETERS: 
1 465 1! 
1 $06 1! EXIT_REASON.rl.r Not used 
1 467 1! 
1 $68 1 ! IMPLICIT INPUTS: 
1100 “g i! 
1101 470 1! NONE 
1108 471 1! 
110 472 1! IMPLICIT OUTPUTS: 
1104 473 1! 
1105 474 1! 
1106 475 1 ! ROUTINE VALUE: 
1107 476 17! 
1108 477 1! NONE 
1109 478 1! 
1110 479 1! SIDE EFFECTS: 
1111 480 1! 
anit 481 1! Deletes the system logical name, if there is one. 
111 rt {| +! 
1114 4 1 f= 
1115 4 1 
BB 485 SEGIN 
111 486 pperaess_cloer Q; 
1118 487 RETURN; 
1119 488 END; 'End of exit_handler 


0000 00000 EXIT_HANDLER: 
Save nothin 


. WORD ; 
OOv CF 00 FB 0000 CALLS #0, BPASMESS_CLEAR : 2486. 
— 04 0000 RET : $ 88 


Routine Size: 8 bytes, Routine Base: _BPASCODE + 0581 


; 1120 2489 1 


1 
ASME SAG ese -1984 01:38: AX-11 Bliss-32 V4.0-74 Pp 5 
oe VenSeb=198e f1:56:51 — EBASRTLSRETEPAMESAG.039;1 2943) 
GLOBAL ROUTINE bpaSmess_clear = ! Removes a permanent receiver 


ee 
FUNCTIONAL DESCRIPTION: 
f the yor ney isn't a declared receiver, success is returned. 
he reciver mailbox is deleted, the channel to the mailbox is 
deassigned, the mailbox logical name is deleted and the channel is 
zeroed to indicate that the caller no longer is a receiver. 
FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
bpa$Sa_msg ([msg$l_messchan = channel opened to mailbox by receiver 


bpaSa_msg [msg$t_namedesc = char. string desc. | Sos to the 
logical name of mailbox 


—DO@SNOuUs® 
= 
-o | 


“ 


IMPLICIT OUTPUTS: 
bpa$Sa_msg ([msg$l_messchan] = 0 
ROUTINE VALUE: 


success - 1 
failure - ? 


SIDE EFFECTS: 


tt ts 4 bn as ts 8s ts 8 te a a et i st te 2 


NONE 
BEGIN 
LOCAL 
sts; ! Status received from 
' calls to sys. serv. 
chan = bpa$a_msg fasgSl _pesschand. ! Channel - 
lognam_desc = bpa$a_msg [msg$t_namedesc]; ! Char. string desc. 


Be Se Se Seo Ge Se Se Ge Ge Se Se Ge Ge Se Fe Se Se Se Se Se Se Ge Se Se be Be Ge Ge Ge Se ee Ge Se Ge Se Se Se Se Ge Se Se ae SH Se Se Seas 


P ! of mailbox name 
! Is the caller a declared receiver? If not, then return success. 


IF .bpa$a_msg (msg$l_messchan] EQLU 0 THEN RETURN 1; 
! Delete the mailbox 


WAPRIIIPURIPININININIDS 2 2 2B QOOOOC’ OOOO wo 
SES USZSSOSVNEGRUN SOM NenewvmODe We ARAN OOD 
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o roto d ak valvaltaleal al al ah ah ale al et att ot af ot at oe ot oP on 
SISSON IS SS SFR TS SSMS SSS SESS 


37 IF NOT (sts = $delmbx (chan = .chan)) THEN RETURN SIGNAL (.st$); 
545 ! Deassign the channel 
546 


ASME SAG 1b-se -19 1:38: Ax-11 $$-32 V4.0-74 Pa 
7 opr198e $1iseis? §«— PeNSAt sae Sepamesac.o43,1 9435 
ig ri | IF NOT (sts = S$dassgn (chan = .chan)) THEN RETURN SIGNAL (.sts); ' 
i 1 49 ! Delete the logical name 
+ ¢ 1 IF NOT (sts = $dellog (lognam = Lognam_desc)) THEN RETURN SIGNAL (.sts); 
1185 : ! Clear chan to indicate that the receiver is removed. 
71 4 chan = 0; 
11 5 RETURN 1; 
1188 56 END; !End of bpa$Smess_clear 
CHAN= BPASA_MSG 
LOGNAM_DESC= BPASA_MSG+4 
-EXTRN SYSSDELLOG | 
000C 00000 ENTRY Key ry CLEAR. Save R2,R3 : 2490. 
53 00000000 EF 9E 0000 MOVAB MSG, 3 
50 $3 DO 000 MOVL BPABA MSG. RO 3; 2539) 
3 13 0000C BEQL F 
50 oD 0000 PUSHL RO : 2543) 
000000006 0 01 FB 0001 CALLS #1, SYSSDELMBX : 
5 50 00 0001 MOVL RO, STS 3 
2 5¢ E9 OOO1A BLBC STS 1$ : | 
65 DD 0001D PUSHL CHA 3: 2547 
000000006 00 01 FB OOOTF CALLS 4o ’SYSSDASSGN : 
52 50 D0 00026 MOVL RO oF : 
14 52 £9 00029 BiBC = STS ; | 
3 D4 0002C CLRL )' 3s 2551) 
046 AS OF Bane PUSHAB LOGNAM_DESC : 
3 D4 on 1 CLRL - $ 
000000006 00 03 FB 00033 CALLS #3, SYSS$DELLOG 3 
52 50 00 ts MOVL RO, STS 3 
OA $2 £8 0003D BLBS STS, 2$ : 
52 DD 00040 18: PUSHL ST : 
000000006 00 01 FB 983 CALLS #1, LIBSSIGNAL : 
04 0004 RET : 
63 D4 O004A ¢: CLRL. CHAN : 2554 
50 01 DO 0004C 3$: MOVL #1, RO 3 $229 | 
04 0004F RET 7 2556 | 
; Routine Size: 80 bytes, | Routine Base: _BPASCODE + 0589 | 
189 557 1 
190 558 1 END 'End of module 
191 559 1 
192 560 0 ELUDOM 


-EXTRN LIBSSIGNAL 
Ec PSECT SUMMARY 


—m 


> 
BPASME SAG 16-Sep-1984 01:38:18 AX-11 Bliss-32 V4.0-7 P 7 
4 1 38:1 age 135 


1-272 14-Sep-1984 11: BASRTL.SRC BPAMESAG.3 31 

: Name Bytes Attributes 

: Brateale 1099 NOVECINOURT: RD CM EXE. Sun: LELS RELL CONS PIESALIONCS) 

; Library Statistics 

3 a Ss sessesce Pages Processing 

: File Total Loaded Percent Mapped Time 

; -8255$DUA28: CSYSLIBISTARLET.L32;1 9776 26 0 581 00:01.2 

; COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACE/LIS=LIS$:BPAMESAG/OBJ=0BJ$:BPAMESAG MSRC$:BPAMESAG/UPDATE=(ENH$: BPAME SAG) 
hy See 1484 Soo Sho + 621 data bytes 


Elapsed Time: 01:2 ot 
Lines/CPU Min: 416 
Lexemes/CPU-Min: 29056 
——- Used: 239 pages 
ation Complete 
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